home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / misc / ced_html / html / html_formular_button.ced < prev    next >
Text File  |  1999-01-25  |  5KB  |  177 lines
  1. /*
  2. ** html_formular_button.ced
  3. **
  4. ** $VER: html_formular_button.ced 1.6 (01.05.1999)
  5. **
  6. ** Arexx script for HTML v3.2 formular button mark
  7. **
  8. ** This script works with CygnusEd Professional v4.2
  9. **
  10. ** Copyright © Eric BELLE
  11. */
  12.  
  13. /*
  14. **------------------------------------------------------------------------------
  15. **    Initialisation
  16. **------------------------------------------------------------------------------
  17. */
  18.  
  19. OPTIONS RESULTS                            /* Tell CygnusEd to return results. */
  20. NL = '0A'X                                    /* Alias for new line. */
  21. KRETURN = RAWKEY 68                    /* Shortcut to the return key. */
  22. KTAB = RAWKEY 66                        /* Shortcut to the tab key. */
  23. STATUS TABSARESPACES                /* Return TAB mode ("tab" or "space"). */
  24. IF RESULT = 1                                /* Test the TAB mode. */
  25. THEN "TABS = SPACES"                /* Switch TAB mode from "space" to "tab". */
  26. ELSE NOP                                        /* No operation. */
  27. TAB SIZE 1                                    /* Set TAB size proportional to 2 spaces. */
  28.  
  29. /*
  30. **------------------------------------------------------------------------------
  31. **    Button mode
  32. **------------------------------------------------------------------------------
  33. */
  34.  
  35. ButtonChoice = "no"
  36. Do While (ButtonChoice="no")
  37.     OKAY2 "Button type:"                                                            || NL ||,
  38.                 "~~~~~~~~~~~"                                                                || NL ||,
  39.                 "  (s)ingle input     |  (v)alidate formular "    || NL ||,
  40.                 "  (m)ultiple inputs  |  (r)eset formular    "
  41.  
  42.     IF (RESULT=0)
  43.     THEN EXIT 0
  44.     ELSE ButtonChoice="ok"
  45.  
  46.     ButtonMode = "q"
  47.     DO WHILE ~(ButtonMode="s" | ButtonMode="m" | ButtonMode="v" | ButtonMode="r",
  48.                         | ButtonMode="RESULT" | ButtonMode=" ")
  49.         GETSTRING "s" '"button type: s, m, v, r?"'
  50.         ButtonMode = RESULT
  51.     END
  52.  
  53.     IF (ButtonMode="RESULT" | ButtonMode=" ")
  54.     THEN ButtonChoice = "no"
  55.     ELSE NOP
  56. END
  57.  
  58. /*
  59. **------------------------------------------------------------------------------
  60. **    Button number
  61. **------------------------------------------------------------------------------
  62. */
  63.  
  64. IF (ButtonMode="s" | ButtonMode="m")
  65. THEN DO
  66.     GETNUMBER 3 '"Button number?"' 1 32768
  67.     ButtonNumber = RESULT
  68.  
  69.     IF (ButtonNumber=" ")
  70.     THEN EXIT 0
  71.     ELSE NOP
  72.     
  73.     DO I=1 TO ButtonNumber
  74.         String = '"Button text n°' || I || '?"'
  75.         Default = '"Text.' || I || '"'
  76.         GETSTRING Default String
  77.         ButtonText.I = RESULT
  78.  
  79.         IF (ButtonText.I="RESULT" | ButtonText.I=" ")
  80.         THEN EXIT 0
  81.         ELSE NOP
  82.         
  83.         String = '"Button value n°' || I || '?"'
  84.         Default = '"Value.' || I || '"'
  85.         GETSTRING Default String
  86.         ButtonValue.I = RESULT
  87.  
  88.         IF (ButtonValue.I="RESULT" | ButtonValue.I=" ")
  89.         THEN EXIT 0
  90.         ELSE NOP
  91.     END
  92. END
  93. ELSE NOP
  94.  
  95. /*
  96. **------------------------------------------------------------------------------
  97. **    Html button marks
  98. **------------------------------------------------------------------------------
  99. */
  100.  
  101. SELECT
  102.     WHEN (ButtonMode="v") THEN DO
  103.         GETSTRING "Send" '"Button text to validate the formular?"'
  104.         ValidButtonText = RESULT
  105.  
  106.         IF (ValidButtonText="RESULT" | ValidButtonText=" ")
  107.         THEN EXIT 0
  108.         ELSE NOP
  109.         
  110.         ButtonString = '<INPUT TYPE=SUBMIT VALUE="' || ValidButtonText || '">'
  111.     END
  112.     WHEN (ButtonMode="r") THEN DO
  113.         GETSTRING "Reset" '"Button text to reset all formular inputs?"'
  114.         ResetButtonText = RESULT
  115.  
  116.         IF (ResetButtonText="RESULT" | ResetButtonText=" ")
  117.         THEN EXIT 0
  118.         ELSE NOP
  119.         
  120.         ButtonString = '<INPUT TYPE=RESET VALUE="' || ResetButtonText || '">'
  121.     END
  122.     WHEN (ButtonMode="s") THEN DO
  123.         GETSTRING "Name" '"Group name for all the buttons?"'
  124.         ButtonName = RESULT
  125.  
  126.         IF (ButtonName="RESULT" | ButtonName=" ")
  127.         THEN EXIT 0
  128.         ELSE NOP
  129.  
  130.         DO I=1 TO ButtonNumber
  131.             ButtonString.I = '<INPUT TYPE=RADIO NAME="' || ButtonName
  132.             ButtonString.I = ButtonString.I || '" VALUE="' || ButtonValue.I
  133.             ButtonString.I = ButtonString.I || '"> ' || ButtonText.I
  134.         END
  135.     END
  136.     WHEN (ButtonMode="m") THEN DO
  137.         GETSTRING "Name" '"Group name for all the buttons?"'
  138.         ButtonName = RESULT
  139.  
  140.         IF (ButtonName="RESULT" | ButtonName=" ")
  141.         THEN EXIT 0
  142.         ELSE NOP
  143.  
  144.         DO I=1 TO ButtonNumber
  145.             ButtonString.I = '<INPUT TYPE=CHECKBOX NAME="' || ButtonName
  146.             ButtonString.I = ButtonString.I || '" VALUE="' || ButtonValue.I
  147.             ButtonString.I = ButtonString.I || '"> ' || ButtonText.I
  148.         END
  149.     END
  150.     OTHERWISE NOP
  151. END
  152.  
  153. /*
  154. **------------------------------------------------------------------------------
  155. **    Html button structure
  156. **------------------------------------------------------------------------------
  157. */
  158.  
  159. SELECT
  160.     WHEN (ButtonMode="v" | ButtonMode="r") THEN TEXT ButtonString
  161.     WHEN (ButtonMode="s" | ButtonMode="m") THEN DO
  162.         DO I=1 TO buttonNumber
  163.             TEXT ButtonString.I
  164.             "AUTO-INDENT"
  165.         END
  166.     END
  167.     OTHERWISE NOP
  168. END
  169.  
  170. /*
  171. **------------------------------------------------------------------------------
  172. **    End of html_formular_button.ced Arexx script
  173. **------------------------------------------------------------------------------
  174. */
  175.  
  176. EXIT 0
  177.